Delphi Magazine Collection 2001/Delphi Magazine Collection 20001 (2001).iso/DISKS/Issue33/dbexustr/DBExUsTr.Zip/eAdvance.dfm/eAdvance.txt

Text File | 1997-12-26 | 10.5 KB | 432 lines

object FrmEAdvancedDlg: TFrmEAdvancedDlg
  Left = 220
  Top = 179
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = 'Advanced parameters'
  ClientHeight = 264
  ClientWidth = 378
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = [fsBold]
  Icon.Data = {<image000.ico>}
  Position = poScreenCenter
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object BtnOk: TButton
    Left = 133
    Top = 236
    Width = 71
    Height = 23
    Caption = 'OK'
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ModalResult = 1
    ParentFont = False
    TabOrder = 0
    OnClick = BtnOkClick
  end
  object BtnCancel: TButton
    Left = 213
    Top = 236
    Width = 71
    Height = 23
    Cancel = True
    Caption = 'Cancel'
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ModalResult = 2
    ParentFont = False
    TabOrder = 1
  end
  object PageControl1: TPageControl
    Left = 15
    Top = 10
    Width = 349
    Height = 221
    ActivePage = TabFormats
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    object TabGeneral: TTabSheet
      Caption = 'General'
      object GBoxRecSeparators: TGroupBox
        Left = 2
        Top = 8
        Width = 187
        Height = 93
        Caption = 'Records separator'
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        object RBtnCRLF: TRadioButton
          Left = 18
          Top = 27
          Width = 55
          Height = 17
          Caption = 'CRLF'
          Checked = True
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          TabStop = True
          OnClick = RBtnCRLFClick
        end
        object RBtnLF: TRadioButton
          Left = 18
          Top = 53
          Width = 39
          Height = 17
          Caption = 'LF'
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          OnClick = RBtnCRLFClick
        end
        object RBtnOther: TRadioButton
          Left = 76
          Top = 53
          Width = 51
          Height = 17
          Caption = 'Other:'
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
          OnClick = RBtnOtherClick
        end
        object RBtnCR: TRadioButton
          Left = 76
          Top = 27
          Width = 41
          Height = 17
          Caption = 'CR'
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 3
          OnClick = RBtnCRLFClick
        end
        object EdtOtherChar: TEdit
          Left = 136
          Top = 53
          Width = 33
          Height = 21
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          MaxLength = 5
          ParentFont = False
          TabOrder = 4
          OnChange = RBtnCRLFClick
        end
      end
      object GroupBox2: TGroupBox
        Left = 200
        Top = 8
        Width = 137
        Height = 93
        Caption = 'Conversion'
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        object CBoxAnsi2Oem: TCheckBox
          Left = 12
          Top = 17
          Width = 113
          Height = 17
          Caption = 'Windows to Dos'
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          OnClick = RBtnCRLFClick
        end
        object CBoxUpper: TCheckBox
          Left = 12
          Top = 42
          Width = 117
          Height = 17
          Caption = 'Upper case'
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          OnClick = CBoxUpperClick
        end
        object CBoxLower: TCheckBox
          Left = 12
          Top = 67
          Width = 113
          Height = 17
          Caption = 'Lower case'
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
          OnClick = CBoxLowerClick
        end
      end
      object Exportation: TGroupBox
        Left = 2
        Top = 104
        Width = 335
        Height = 71
        Caption = 'Export'
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        object Label6: TLabel
          Left = 14
          Top = 24
          Width = 108
          Height = 13
          Caption = 'Start at record number:'
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object LblNbLinesToExport: TLabel
          Left = 140
          Top = 47
          Width = 134
          Height = 13
          Caption = 'Number of records to export:'
          Enabled = False
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object EdtStartLine: TEdit
          Left = 135
          Top = 20
          Width = 43
          Height = 21
          MaxLength = 4
          TabOrder = 0
          Text = '1'
          OnChange = RBtnCRLFClick
          OnKeyPress = EdtStartLineKeyPress
        end
        object CBoxAllExport: TCheckBox
          Left = 16
          Top = 46
          Width = 80
          Height = 17
          Caption = 'Export all'
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          State = cbChecked
          TabOrder = 1
          OnClick = CBoxAllExportClick
        end
        object EdtNbLineMax: TEdit
          Left = 287
          Top = 45
          Width = 35
          Height = 21
          Enabled = False
          MaxLength = 4
          TabOrder = 2
          OnChange = RBtnCRLFClick
          OnKeyPress = EdtStartLineKeyPress
        end
      end
    end
    object TabFormats: TTabSheet
      Caption = 'Formats'
      object GrpBoxDateTime: TGroupBox
        Left = 8
        Top = 22
        Width = 325
        Height = 149
        Caption = 'Date, Time, and Numbers   '
        TabOrder = 0
        object Label1: TLabel
          Left = 11
          Top = 36
          Width = 98
          Height = 13
          Caption = 'Date order:'
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label2: TLabel
          Left = 11
          Top = 68
          Width = 102
          Height = 13
          Caption = 'Date separator:'
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label3: TLabel
          Left = 11
          Top = 100
          Width = 102
          Height = 13
          Caption = 'Time separator:'
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label4: TLabel
          Left = 191
          Top = 100
          Width = 76
          Height = 13
          Caption = 'Decimal symbol:'
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object ComBoxDateType: TComboBox
          Left = 114
          Top = 31
          Width = 59
          Height = 21
          Style = csDropDownList
          Font.Color = clNavy
          Font.Height = -12
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ItemHeight = 13
          Items.Strings = (
            'DMY'
            'MDY'
            'YMD'
            'YDM'
            'MYD'
            'DYM')
          ParentFont = False
          TabOrder = 0
          OnChange = RBtnCRLFClick
        end
        object EdtDateSeparator: TEdit
          Left = 114
          Top = 63
          Width = 43
          Height = 21
          MaxLength = 1
          TabOrder = 1
          OnChange = RBtnCRLFClick
        end
        object EdtTimeSeparator: TEdit
          Left = 114
          Top = 96
          Width = 43
          Height = 21
          MaxLength = 4
          TabOrder = 2
          OnChange = RBtnCRLFClick
        end
        object CBoxFourDigits: TCheckBox
          Left = 191
          Top = 33
          Width = 128
          Height = 17
          Caption = 'Four digits year'
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 3
          OnClick = RBtnCRLFClick
        end
        object CBoxLeadingZeroes: TCheckBox
          Left = 191
          Top = 65
          Width = 124
          Height = 17
          Caption = 'Leading zeroes'
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 4
          OnClick = RBtnCRLFClick
        end
        object EdtDecimalSeparator: TEdit
          Left = 282
          Top = 96
          Width = 31
          Height = 21
          MaxLength = 4
          TabOrder = 5
          OnChange = RBtnCRLFClick
        end
      end
    end
  end
  object BtnApply: TButton
    Left = 293
    Top = 236
    Width = 71
    Height = 23
    Caption = 'Apply'
    Enabled = False
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnClick = BtnApplyClick
  end
end